/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Apple II / Essentials / Essentials.sea / MPW IIGS Interfaces / PIIGSIncludes / StdFile.p

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 53 74 64 46 69 6c | 65 2e 70 00 00 00 00 00 |..StdFil|e.p.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 12 50 00 | 00 01 ac a8 43 a6 83 a8 |......P.|....C...|
|00000060| 43 a6 83 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |C.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 02 bf 00 00 |........|........|
|00000080| 7b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |{*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 3b 20 |********|*****.; |
|000000b0| 46 69 6c 65 3a 20 53 74 | 64 46 69 6c 65 2e 70 0d |File: St|dFile.p.|
|000000c0| 3b 0d 3b 0d 3b 20 43 6f | 70 79 72 69 67 68 74 20 |;.;.; Co|pyright |
|000000d0| 41 70 70 6c 65 20 43 6f | 6d 70 75 74 65 72 2c 20 |Apple Co|mputer, |
|000000e0| 49 6e 63 2e 20 31 39 38 | 36 2d 39 32 0d 3b 20 41 |Inc. 198|6-92.; A|
|000000f0| 6c 6c 20 52 69 67 68 74 | 73 20 52 65 73 65 72 76 |ll Right|s Reserv|
|00000100| 65 64 0d 3b 0d 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |ed.;.***|********|
|00000110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000130| 2a 7d 0d 0d 55 4e 49 54 | 20 53 54 44 46 49 4c 45 |*}..UNIT| STDFILE|
|00000140| 3b 0d 0d 49 4e 54 45 52 | 46 41 43 45 0d 0d 55 53 |;..INTER|FACE..US|
|00000150| 45 53 20 54 59 50 45 53 | 3b 0d 0d 43 4f 4e 53 54 |ES TYPES|;..CONST|
|00000160| 0d 7b 20 45 72 72 6f 72 | 20 43 6f 64 65 73 20 7d |.{ Error| Codes }|
|00000170| 0d 62 61 64 50 72 6f 6d | 70 74 44 65 73 63 20 3d |.badProm|ptDesc =|
|00000180| 20 24 31 37 30 31 3b 0d | 62 61 64 4f 72 69 67 4e | $1701;.|badOrigN|
|00000190| 61 6d 65 44 65 73 63 20 | 3d 20 24 31 37 30 32 3b |ameDesc |= $1702;|
|000001a0| 0d 62 61 64 52 65 70 6c | 79 4e 61 6d 65 44 65 73 |.badRepl|yNameDes|
|000001b0| 63 20 3d 20 24 31 37 30 | 34 3b 0d 62 61 64 52 65 |c = $170|4;.badRe|
|000001c0| 70 6c 79 50 61 74 68 44 | 65 73 63 20 3d 20 24 31 |plyPathD|esc = $1|
|000001d0| 37 30 35 3b 0d 62 61 64 | 43 61 6c 6c 20 3d 20 24 |705;.bad|Call = $|
|000001e0| 31 37 30 36 3b 0d 73 66 | 4e 6f 74 53 74 61 72 74 |1706;.sf|NotStart|
|000001f0| 65 64 20 3d 20 24 31 37 | 46 46 3b 0d 0d 7b 20 66 |ed = $17|FF;..{ f|
|00000200| 69 6c 74 65 72 50 72 6f | 63 20 52 65 73 75 6c 74 |ilterPro|c Result|
|00000210| 20 43 6f 64 65 73 20 7d | 0d 6e 6f 44 69 73 70 6c | Codes }|.noDispl|
|00000220| 61 79 20 3d 20 24 30 30 | 30 30 3b 20 20 7b 20 66 |ay = $00|00;  { f|
|00000230| 69 6c 65 20 6e 6f 74 20 | 74 6f 20 62 65 20 64 69 |ile not |to be di|
|00000240| 73 70 6c 61 79 65 64 20 | 7d 0d 6e 6f 53 65 6c 65 |splayed |}.noSele|
|00000250| 63 74 20 3d 20 24 30 30 | 30 31 3b 20 20 7b 20 66 |ct = $00|01;  { f|
|00000260| 69 6c 65 20 64 69 73 70 | 6c 61 79 65 64 2c 20 62 |ile disp|layed, b|
|00000270| 75 74 20 6e 6f 74 20 73 | 65 6c 65 63 74 61 62 6c |ut not s|electabl|
|00000280| 65 20 7d 0d 64 69 73 70 | 6c 61 79 53 65 6c 65 63 |e }.disp|laySelec|
|00000290| 74 20 3d 20 24 30 30 30 | 32 3b 20 20 7b 20 66 69 |t = $000|2;  { fi|
|000002a0| 6c 65 20 64 69 73 70 6c | 61 79 65 64 20 61 6e 64 |le displ|ayed and|
|000002b0| 20 73 65 6c 65 63 74 61 | 62 6c 65 20 7d 0d 0d 7b | selecta|ble }..{|
|000002c0| 20 4f 74 68 65 72 20 43 | 6f 6e 73 74 61 6e 74 73 | Other C|onstants|
|000002d0| 20 7d 0d 73 66 57 69 6c | 64 41 75 78 54 79 70 65 | }.sfWil|dAuxType|
|000002e0| 20 3d 20 24 38 30 30 30 | 3b 0d 73 66 4d 61 74 63 | = $8000|;.sfMatc|
|000002f0| 68 46 69 6c 65 54 79 70 | 65 20 3d 20 24 38 30 30 |hFileTyp|e = $800|
|00000300| 30 3b 0d 73 66 57 69 6c | 64 46 69 6c 65 54 79 70 |0;.sfWil|dFileTyp|
|00000310| 65 20 3d 20 24 34 30 30 | 30 3b 0d 73 66 4d 61 74 |e = $400|0;.sfMat|
|00000320| 63 68 41 75 78 54 79 70 | 65 20 3d 20 24 34 30 30 |chAuxTyp|e = $400|
|00000330| 30 3b 0d 73 66 44 69 73 | 70 6c 61 79 47 72 65 79 |0;.sfDis|playGrey|
|00000340| 20 3d 20 24 32 30 30 30 | 3b 0d 7b 24 49 46 43 20 | = $2000|;.{$IFC |
|00000350| 55 4e 44 45 46 49 4e 45 | 44 20 73 66 46 69 6c 65 |UNDEFINE|D sfFile|
|00000360| 54 79 70 65 45 6e 74 72 | 69 65 73 4c 65 6e 67 74 |TypeEntr|iesLengt|
|00000370| 68 20 7d 20 20 7b 20 53 | 46 54 79 70 65 4c 69 73 |h }  { S|FTypeLis|
|00000380| 74 20 2d 20 64 65 66 61 | 75 6c 74 20 6e 75 6d 62 |t - defa|ult numb|
|00000390| 65 72 20 6f 66 20 46 69 | 6c 65 54 79 70 65 45 6e |er of Fi|leTypeEn|
|000003a0| 74 72 69 65 73 20 7d 0d | 73 66 46 69 6c 65 54 79 |tries }.|sfFileTy|
|000003b0| 70 65 45 6e 74 72 69 65 | 73 4c 65 6e 67 74 68 20 |peEntrie|sLength |
|000003c0| 3d 20 24 30 30 30 35 3b | 0d 7b 24 53 45 54 43 20 |= $0005;|.{$SETC |
|000003d0| 73 66 46 69 6c 65 54 79 | 70 65 45 6e 74 72 69 65 |sfFileTy|peEntrie|
|000003e0| 73 4c 65 6e 67 74 68 20 | 3a 3d 20 30 7d 0d 7b 24 |sLength |:= 0}.{$|
|000003f0| 45 4e 44 43 7d 0d 0d 54 | 59 50 45 0d 53 46 52 65 |ENDC}..T|YPE.SFRe|
|00000400| 70 6c 79 52 65 63 48 6e | 64 6c 20 3d 20 5e 53 46 |plyRecHn|dl = ^SF|
|00000410| 52 65 70 6c 79 52 65 63 | 50 74 72 3b 0d 53 46 52 |ReplyRec|Ptr;.SFR|
|00000420| 65 70 6c 79 52 65 63 50 | 74 72 20 3d 20 5e 53 46 |eplyRecP|tr = ^SF|
|00000430| 52 65 70 6c 79 52 65 63 | 3b 0d 53 46 52 65 70 6c |ReplyRec|;.SFRepl|
|00000440| 79 52 65 63 20 3d 20 52 | 45 43 4f 52 44 0d 20 20 |yRec = R|ECORD.  |
|00000450| 20 20 67 6f 6f 64 20 3a | 20 42 6f 6f 6c 65 61 6e |  good :| Boolean|
|00000460| 3b 0d 20 20 20 20 66 69 | 6c 65 54 79 70 65 20 3a |;.    fi|leType :|
|00000470| 20 49 6e 74 65 67 65 72 | 3b 0d 20 20 20 20 61 75 | Integer|;.    au|
|00000480| 78 46 69 6c 65 54 79 70 | 65 20 3a 20 49 6e 74 65 |xFileTyp|e : Inte|
|00000490| 67 65 72 3b 0d 20 20 20 | 20 66 69 6c 65 6e 61 6d |ger;.   | filenam|
|000004a0| 65 20 3a 20 53 74 72 69 | 6e 67 5b 31 35 5d 3b 0d |e : Stri|ng[15];.|
|000004b0| 20 20 20 20 66 75 6c 6c | 50 61 74 68 6e 61 6d 65 |    full|Pathname|
|000004c0| 20 3a 20 53 74 72 69 6e | 67 5b 31 32 38 5d 3b 0d | : Strin|g[128];.|
|000004d0| 45 4e 44 3b 0d 0d 53 46 | 52 65 70 6c 79 52 65 63 |END;..SF|ReplyRec|
|000004e0| 32 48 6e 64 6c 20 3d 20 | 5e 53 46 52 65 70 6c 79 |2Hndl = |^SFReply|
|000004f0| 52 65 63 32 50 74 72 3b | 0d 53 46 52 65 70 6c 79 |Rec2Ptr;|.SFReply|
|00000500| 52 65 63 32 50 74 72 20 | 3d 20 5e 53 46 52 65 70 |Rec2Ptr |= ^SFRep|
|00000510| 6c 79 52 65 63 32 3b 0d | 53 46 52 65 70 6c 79 52 |lyRec2;.|SFReplyR|
|00000520| 65 63 32 20 3d 20 52 45 | 43 4f 52 44 0d 20 20 20 |ec2 = RE|CORD.   |
|00000530| 20 67 6f 6f 64 20 3a 20 | 42 6f 6f 6c 65 61 6e 3b | good : |Boolean;|
|00000540| 0d 20 20 20 20 66 69 6c | 65 54 79 70 65 20 3a 20 |.    fil|eType : |
|00000550| 49 6e 74 65 67 65 72 3b | 0d 20 20 20 20 61 75 78 |Integer;|.    aux|
|00000560| 54 79 70 65 20 3a 20 4c | 6f 6e 67 69 6e 74 3b 0d |Type : L|ongint;.|
|00000570| 20 20 20 20 6e 61 6d 65 | 52 65 66 44 65 73 63 20 |    name|RefDesc |
|00000580| 3a 20 52 65 66 44 65 73 | 63 72 69 70 74 6f 72 3b |: RefDes|criptor;|
|00000590| 0d 20 20 20 20 6e 61 6d | 65 52 65 66 20 3a 20 52 |.    nam|eRef : R|
|000005a0| 65 66 3b 0d 20 20 20 20 | 70 61 74 68 52 65 66 44 |ef;.    |pathRefD|
|000005b0| 65 73 63 20 3a 20 52 65 | 66 44 65 73 63 72 69 70 |esc : Re|fDescrip|
|000005c0| 74 6f 72 3b 0d 20 20 20 | 20 70 61 74 68 52 65 66 |tor;.   | pathRef|
|000005d0| 20 3a 20 52 65 66 3b 0d | 45 4e 44 3b 0d 0d 66 69 | : Ref;.|END;..fi|
|000005e0| 6c 65 45 6e 74 72 79 52 | 65 63 50 74 72 20 3d 20 |leEntryR|ecPtr = |
|000005f0| 5e 66 69 6c 65 45 6e 74 | 72 79 52 65 63 3b 0d 66 |^fileEnt|ryRec;.f|
|00000600| 69 6c 65 45 6e 74 72 79 | 52 65 63 20 3d 20 52 45 |ileEntry|Rec = RE|
|00000610| 43 4f 52 44 0d 09 09 66 | 69 6c 65 54 79 70 65 20 |CORD...f|ileType |
|00000620| 3a 20 49 6e 74 65 67 65 | 72 3b 0d 09 09 61 75 78 |: Intege|r;...aux|
|00000630| 54 79 70 65 20 3a 20 4c | 6f 6e 67 49 6e 74 3b 0d |Type : L|ongInt;.|
|00000640| 09 09 6e 61 6d 65 4c 65 | 6e 67 74 68 20 3a 20 43 |..nameLe|ngth : C|
|00000650| 68 61 72 3b 0d 09 09 70 | 72 65 66 69 78 31 20 3a |har;...p|refix1 :|
|00000660| 20 43 68 61 72 3b 0d 09 | 09 70 72 65 66 69 78 32 | Char;..|.prefix2|
|00000670| 20 3a 20 43 68 61 72 3b | 0d 09 09 6e 61 6d 65 20 | : Char;|...name |
|00000680| 3a 20 41 72 72 61 79 5b | 31 2e 2e 32 35 33 5d 20 |: Array[|1..253] |
|00000690| 6f 66 20 43 68 61 72 3b | 0d 45 4e 44 3b 0d 0d 6e |of Char;|.END;..n|
|000006a0| 61 6d 65 73 48 61 6e 64 | 6c 65 52 65 63 48 6e 64 |amesHand|leRecHnd|
|000006b0| 6c 20 3d 20 5e 6e 61 6d | 65 73 48 61 6e 64 6c 65 |l = ^nam|esHandle|
|000006c0| 52 65 63 50 74 72 3b 0d | 6e 61 6d 65 73 48 61 6e |RecPtr;.|namesHan|
|000006d0| 64 6c 65 52 65 63 50 74 | 72 20 3d 20 5e 6e 61 6d |dleRecPt|r = ^nam|
|000006e0| 65 73 48 61 6e 64 6c 65 | 52 65 63 3b 0d 6e 61 6d |esHandle|Rec;.nam|
|000006f0| 65 73 48 61 6e 64 6c 65 | 52 65 63 20 3d 20 52 45 |esHandle|Rec = RE|
|00000700| 43 4f 52 44 0d 09 62 75 | 66 66 65 72 4c 65 6e 67 |CORD..bu|fferLeng|
|00000710| 74 68 20 3a 20 49 6e 74 | 65 67 65 72 3b 0d 09 66 |th : Int|eger;..f|
|00000720| 69 6c 65 45 6e 74 72 79 | 41 72 72 61 79 20 3a 20 |ileEntry|Array : |
|00000730| 41 72 72 61 79 5b 30 2e | 2e 30 5d 20 6f 66 20 66 |Array[0.|.0] of f|
|00000740| 69 6c 65 45 6e 74 72 79 | 52 65 63 3b 0d 45 4e 44 |ileEntry|Rec;.END|
|00000750| 3b 0d 0d 4d 75 6c 74 69 | 52 65 70 6c 79 50 74 72 |;..Multi|ReplyPtr|
|00000760| 20 3d 20 5e 4d 75 6c 74 | 69 52 65 70 6c 79 52 65 | = ^Mult|iReplyRe|
|00000770| 63 6f 72 64 3b 0d 4d 75 | 6c 74 69 52 65 70 6c 79 |cord;.Mu|ltiReply|
|00000780| 52 65 63 6f 72 64 20 3d | 20 52 45 43 4f 52 44 0d |Record =| RECORD.|
|00000790| 20 20 20 20 67 6f 6f 64 | 20 3a 20 49 6e 74 65 67 |    good| : Integ|
|000007a0| 65 72 3b 0d 20 20 20 20 | 6e 61 6d 65 73 48 61 6e |er;.    |namesHan|
|000007b0| 64 6c 65 20 3a 20 6e 61 | 6d 65 73 48 61 6e 64 6c |dle : na|mesHandl|
|000007c0| 65 52 65 63 48 6e 64 6c | 3b 0d 45 4e 44 3b 0d 0d |eRecHndl|;.END;..|
|000007d0| 53 46 54 79 70 65 4c 69 | 73 74 48 6e 64 6c 20 3d |SFTypeLi|stHndl =|
|000007e0| 20 5e 53 46 54 79 70 65 | 4c 69 73 74 50 74 72 3b | ^SFType|ListPtr;|
|000007f0| 0d 53 46 54 79 70 65 4c | 69 73 74 50 74 72 20 3d |.SFTypeL|istPtr =|
|00000800| 20 5e 53 46 54 79 70 65 | 4c 69 73 74 3b 0d 53 46 | ^SFType|List;.SF|
|00000810| 54 79 70 65 4c 69 73 74 | 20 3d 20 50 41 43 4b 45 |TypeList| = PACKE|
|00000820| 44 20 52 45 43 4f 52 44 | 0d 20 20 20 20 6e 75 6d |D RECORD|.    num|
|00000830| 45 6e 74 72 69 65 73 20 | 3a 20 42 79 74 65 3b 0d |Entries |: Byte;.|
|00000840| 20 20 20 20 66 69 6c 65 | 54 79 70 65 45 6e 74 72 |    file|TypeEntr|
|00000850| 69 65 73 20 3a 20 50 41 | 43 4b 45 44 20 41 52 52 |ies : PA|CKED ARR|
|00000860| 41 59 5b 31 2e 2e 73 66 | 46 69 6c 65 54 79 70 65 |AY[1..sf|FileType|
|00000870| 45 6e 74 72 69 65 73 4c | 65 6e 67 74 68 5d 20 4f |EntriesL|ength] O|
|00000880| 46 20 42 79 74 65 3b 0d | 45 4e 44 3b 0d 0d 54 79 |F Byte;.|END;..Ty|
|00000890| 70 65 53 65 6c 65 63 74 | 6f 72 32 20 3d 20 52 45 |peSelect|or2 = RE|
|000008a0| 43 4f 52 44 0d 20 20 20 | 20 66 6c 61 67 73 20 3a |CORD.   | flags :|
|000008b0| 20 49 6e 74 65 67 65 72 | 3b 0d 20 20 20 20 66 69 | Integer|;.    fi|
|000008c0| 6c 65 54 79 70 65 20 3a | 20 49 6e 74 65 67 65 72 |leType :| Integer|
|000008d0| 3b 0d 20 20 20 20 61 75 | 78 54 79 70 65 20 3a 20 |;.    au|xType : |
|000008e0| 4c 6f 6e 67 69 6e 74 3b | 0d 45 4e 44 3b 0d 0d 53 |Longint;|.END;..S|
|000008f0| 46 54 79 70 65 4c 69 73 | 74 32 48 6e 64 6c 20 3d |FTypeLis|t2Hndl =|
|00000900| 20 5e 53 46 54 79 70 65 | 4c 69 73 74 32 50 74 72 | ^SFType|List2Ptr|
|00000910| 3b 0d 53 46 54 79 70 65 | 4c 69 73 74 32 50 74 72 |;.SFType|List2Ptr|
|00000920| 20 3d 20 5e 53 46 54 79 | 70 65 4c 69 73 74 32 3b | = ^SFTy|peList2;|
|00000930| 0d 53 46 54 79 70 65 4c | 69 73 74 32 20 3d 20 52 |.SFTypeL|ist2 = R|
|00000940| 45 43 4f 52 44 0d 20 20 | 20 20 6e 75 6d 45 6e 74 |ECORD.  |  numEnt|
|00000950| 72 69 65 73 20 3a 20 49 | 6e 74 65 67 65 72 3b 0d |ries : I|nteger;.|
|00000960| 20 20 20 20 66 69 6c 65 | 54 79 70 65 45 6e 74 72 |    file|TypeEntr|
|00000970| 69 65 73 20 3a 20 41 52 | 52 41 59 5b 31 2e 2e 73 |ies : AR|RAY[1..s|
|00000980| 66 46 69 6c 65 54 79 70 | 65 45 6e 74 72 69 65 73 |fFileTyp|eEntries|
|00000990| 4c 65 6e 67 74 68 5d 20 | 4f 46 20 54 79 70 65 53 |Length] |OF TypeS|
|000009a0| 65 6c 65 63 74 6f 72 32 | 3b 0d 45 4e 44 3b 0d 0d |elector2|;.END;..|
|000009b0| 50 52 4f 43 45 44 55 52 | 45 20 53 46 41 6c 6c 43 |PROCEDUR|E SFAllC|
|000009c0| 61 70 73 20 28 20 61 6c | 6c 43 61 70 73 46 6c 61 |aps ( al|lCapsFla|
|000009d0| 67 3a 42 6f 6f 6c 65 61 | 6e 29 3b 0d 50 52 4f 43 |g:Boolea|n);.PROC|
|000009e0| 45 44 55 52 45 20 53 46 | 42 6f 6f 74 49 6e 69 74 |EDURE SF|BootInit|
|000009f0| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 53 46 47 65 |;.PROCED|URE SFGe|
|00000a00| 74 46 69 6c 65 20 28 20 | 77 68 65 72 65 58 3a 49 |tFile ( |whereX:I|
|00000a10| 6e 74 65 67 65 72 3b 20 | 77 68 65 72 65 59 3a 49 |nteger; |whereY:I|
|00000a20| 6e 74 65 67 65 72 3b 20 | 70 72 6f 6d 70 74 3a 53 |nteger; |prompt:S|
|00000a30| 74 72 32 35 35 3b 20 66 | 69 6c 74 65 72 50 72 6f |tr255; f|ilterPro|
|00000a40| 63 50 74 72 3a 57 6f 72 | 64 50 72 6f 63 50 74 72 |cPtr:Wor|dProcPtr|
|00000a50| 3b 20 74 79 70 65 4c 69 | 73 74 50 74 72 3a 53 46 |; typeLi|stPtr:SF|
|00000a60| 54 79 70 65 4c 69 73 74 | 50 74 72 3b 56 41 52 20 |TypeList|Ptr;VAR |
|00000a70| 72 65 70 6c 79 50 74 72 | 3a 53 46 52 65 70 6c 79 |replyPtr|:SFReply|
|00000a80| 52 65 63 29 20 20 3b 0d | 50 52 4f 43 45 44 55 52 |Rec)  ;.|PROCEDUR|
|00000a90| 45 20 53 46 47 65 74 46 | 69 6c 65 32 20 28 20 77 |E SFGetF|ile2 ( w|
|00000aa0| 68 65 72 65 58 3a 49 6e | 74 65 67 65 72 3b 20 77 |hereX:In|teger; w|
|00000ab0| 68 65 72 65 59 3a 49 6e | 74 65 67 65 72 3b 20 70 |hereY:In|teger; p|
|00000ac0| 72 6f 6d 70 74 44 65 73 | 63 3a 52 65 66 44 65 73 |romptDes|c:RefDes|
|00000ad0| 63 72 69 70 74 6f 72 3b | 20 70 72 6f 6d 70 74 52 |criptor;| promptR|
|00000ae0| 65 66 3a 52 65 66 3b 20 | 66 69 6c 74 65 72 50 72 |ef:Ref; |filterPr|
|00000af0| 6f 63 50 74 72 3a 57 6f | 72 64 50 72 6f 63 50 74 |ocPtr:Wo|rdProcPt|
|00000b00| 72 3b 20 74 79 70 65 4c | 69 73 74 50 74 72 3a 53 |r; typeL|istPtr:S|
|00000b10| 46 54 79 70 65 4c 69 73 | 74 32 50 74 72 3b 56 41 |FTypeLis|t2Ptr;VA|
|00000b20| 52 20 72 65 70 6c 79 50 | 74 72 3a 53 46 52 65 70 |R replyP|tr:SFRep|
|00000b30| 6c 79 52 65 63 32 29 3b | 0d 50 52 4f 43 45 44 55 |lyRec2);|.PROCEDU|
|00000b40| 52 45 20 53 46 4d 75 6c | 74 69 47 65 74 32 20 28 |RE SFMul|tiGet2 (|
|00000b50| 20 77 68 65 72 65 58 3a | 49 6e 74 65 67 65 72 3b | whereX:|Integer;|
|00000b60| 20 77 68 65 72 65 59 3a | 49 6e 74 65 67 65 72 3b | whereY:|Integer;|
|00000b70| 20 70 72 6f 6d 70 74 44 | 65 73 63 3a 52 65 66 44 | promptD|esc:RefD|
|00000b80| 65 73 63 72 69 70 74 6f | 72 3b 20 70 72 6f 6d 70 |escripto|r; promp|
|00000b90| 74 52 65 66 3a 52 65 66 | 3b 20 66 69 6c 74 65 72 |tRef:Ref|; filter|
|00000ba0| 50 72 6f 63 50 74 72 3a | 57 6f 72 64 50 72 6f 63 |ProcPtr:|WordProc|
|00000bb0| 50 74 72 3b 20 74 79 70 | 65 4c 69 73 74 50 74 72 |Ptr; typ|eListPtr|
|00000bc0| 3a 53 46 54 79 70 65 4c | 69 73 74 32 50 74 72 3b |:SFTypeL|ist2Ptr;|
|00000bd0| 56 41 52 20 72 65 70 6c | 79 50 74 72 3a 4d 75 6c |VAR repl|yPtr:Mul|
|00000be0| 74 69 52 65 70 6c 79 50 | 74 72 29 3b 0d 50 52 4f |tiReplyP|tr);.PRO|
|00000bf0| 43 45 44 55 52 45 20 53 | 46 50 47 65 74 46 69 6c |CEDURE S|FPGetFil|
|00000c00| 65 20 28 20 77 68 65 72 | 65 58 3a 49 6e 74 65 67 |e ( wher|eX:Integ|
|00000c10| 65 72 3b 20 77 68 65 72 | 65 59 3a 49 6e 74 65 67 |er; wher|eY:Integ|
|00000c20| 65 72 3b 20 70 72 6f 6d | 70 74 3a 53 74 72 32 35 |er; prom|pt:Str25|
|00000c30| 35 3b 20 66 69 6c 74 65 | 72 50 72 6f 63 50 74 72 |5; filte|rProcPtr|
|00000c40| 3a 57 6f 72 64 50 72 6f | 63 50 74 72 3b 20 74 79 |:WordPro|cPtr; ty|
|00000c50| 70 65 4c 69 73 74 50 74 | 72 3a 53 46 54 79 70 65 |peListPt|r:SFType|
|00000c60| 4c 69 73 74 50 74 72 3b | 20 64 69 61 6c 6f 67 54 |ListPtr;| dialogT|
|00000c70| 65 6d 70 50 74 72 3a 44 | 69 61 6c 6f 67 54 65 6d |empPtr:D|ialogTem|
|00000c80| 70 6c 61 74 65 3b 20 64 | 69 61 6c 6f 67 48 6f 6f |plate; d|ialogHoo|
|00000c90| 6b 50 74 72 3a 56 6f 69 | 64 50 72 6f 63 50 74 72 |kPtr:Voi|dProcPtr|
|00000ca0| 3b 56 41 52 20 72 65 70 | 6c 79 50 74 72 3a 53 46 |;VAR rep|lyPtr:SF|
|00000cb0| 52 65 70 6c 79 52 65 63 | 29 3b 0d 50 52 4f 43 45 |ReplyRec|);.PROCE|
|00000cc0| 44 55 52 45 20 53 46 50 | 47 65 74 46 69 6c 65 32 |DURE SFP|GetFile2|
|00000cd0| 20 28 20 77 68 65 72 65 | 58 3a 49 6e 74 65 67 65 | ( where|X:Intege|
|00000ce0| 72 3b 20 77 68 65 72 65 | 59 3a 49 6e 74 65 67 65 |r; where|Y:Intege|
|00000cf0| 72 3b 20 69 74 65 6d 44 | 72 61 77 50 74 72 3a 50 |r; itemD|rawPtr:P|
|00000d00| 72 6f 63 50 74 72 3b 20 | 70 72 6f 6d 70 74 44 65 |rocPtr; |promptDe|
|00000d10| 73 63 3a 52 65 66 44 65 | 73 63 72 69 70 74 6f 72 |sc:RefDe|scriptor|
|00000d20| 3b 20 70 72 6f 6d 70 74 | 52 65 66 3a 52 65 66 3b |; prompt|Ref:Ref;|
|00000d30| 20 66 69 6c 74 65 72 50 | 72 6f 63 50 74 72 3a 57 | filterP|rocPtr:W|
|00000d40| 6f 72 64 50 72 6f 63 50 | 74 72 3b 20 74 79 70 65 |ordProcP|tr; type|
|00000d50| 4c 69 73 74 50 74 72 3a | 53 46 54 79 70 65 4c 69 |ListPtr:|SFTypeLi|
|00000d60| 73 74 32 50 74 72 3b 20 | 64 69 61 6c 6f 67 54 65 |st2Ptr; |dialogTe|
|00000d70| 6d 70 50 74 72 3a 44 69 | 61 6c 6f 67 54 65 6d 70 |mpPtr:Di|alogTemp|
|00000d80| 6c 61 74 65 3b 20 64 69 | 61 6c 6f 67 48 6f 6f 6b |late; di|alogHook|
|00000d90| 50 74 72 3a 56 6f 69 64 | 50 72 6f 63 50 74 72 3b |Ptr:Void|ProcPtr;|
|00000da0| 56 41 52 20 72 65 70 6c | 79 50 74 72 3a 53 46 52 |VAR repl|yPtr:SFR|
|00000db0| 65 70 6c 79 52 65 63 32 | 29 3b 0d 50 52 4f 43 45 |eplyRec2|);.PROCE|
|00000dc0| 44 55 52 45 20 53 46 50 | 4d 75 6c 74 69 47 65 74 |DURE SFP|MultiGet|
|00000dd0| 32 20 28 20 77 68 65 72 | 65 58 3a 49 6e 74 65 67 |2 ( wher|eX:Integ|
|00000de0| 65 72 3b 20 77 68 65 72 | 65 59 3a 49 6e 74 65 67 |er; wher|eY:Integ|
|00000df0| 65 72 3b 20 69 74 65 6d | 44 72 61 77 50 74 72 3a |er; item|DrawPtr:|
|00000e00| 50 72 6f 63 50 74 72 3b | 20 70 72 6f 6d 70 74 44 |ProcPtr;| promptD|
|00000e10| 65 73 63 3a 52 65 66 44 | 65 73 63 72 69 70 74 6f |esc:RefD|escripto|
|00000e20| 72 3b 20 70 72 6f 6d 70 | 74 52 65 66 3a 52 65 66 |r; promp|tRef:Ref|
|00000e30| 3b 20 66 69 6c 74 65 72 | 50 72 6f 63 50 74 72 3a |; filter|ProcPtr:|
|00000e40| 57 6f 72 64 50 72 6f 63 | 50 74 72 3b 20 74 79 70 |WordProc|Ptr; typ|
|00000e50| 65 4c 69 73 74 50 74 72 | 3a 53 46 54 79 70 65 4c |eListPtr|:SFTypeL|
|00000e60| 69 73 74 32 50 74 72 3b | 20 64 69 61 6c 6f 67 54 |ist2Ptr;| dialogT|
|00000e70| 65 6d 70 50 74 72 3a 44 | 69 61 6c 6f 67 54 65 6d |empPtr:D|ialogTem|
|00000e80| 70 6c 61 74 65 3b 20 64 | 69 61 6c 6f 67 48 6f 6f |plate; d|ialogHoo|
|00000e90| 6b 50 74 72 3a 56 6f 69 | 64 50 72 6f 63 50 74 72 |kPtr:Voi|dProcPtr|
|00000ea0| 3b 56 41 52 20 72 65 70 | 6c 79 50 74 72 3a 4d 75 |;VAR rep|lyPtr:Mu|
|00000eb0| 6c 74 69 52 65 70 6c 79 | 50 74 72 29 3b 0d 50 52 |ltiReply|Ptr);.PR|
|00000ec0| 4f 43 45 44 55 52 45 20 | 53 46 50 50 75 74 46 69 |OCEDURE |SFPPutFi|
|00000ed0| 6c 65 20 28 20 77 68 65 | 72 65 58 3a 49 6e 74 65 |le ( whe|reX:Inte|
|00000ee0| 67 65 72 3b 20 77 68 65 | 72 65 59 3a 49 6e 74 65 |ger; whe|reY:Inte|
|00000ef0| 67 65 72 3b 20 70 72 6f | 6d 70 74 3a 53 74 72 32 |ger; pro|mpt:Str2|
|00000f00| 35 35 3b 20 6f 72 69 67 | 4e 61 6d 65 3a 53 74 72 |55; orig|Name:Str|
|00000f10| 32 35 35 3b 20 6d 61 78 | 4c 65 6e 3a 49 6e 74 65 |255; max|Len:Inte|
|00000f20| 67 65 72 3b 20 64 69 61 | 6c 6f 67 54 65 6d 70 50 |ger; dia|logTempP|
|00000f30| 74 72 3a 44 69 61 6c 6f | 67 54 65 6d 70 6c 61 74 |tr:Dialo|gTemplat|
|00000f40| 65 3b 20 64 69 61 6c 6f | 67 48 6f 6f 6b 50 74 72 |e; dialo|gHookPtr|
|00000f50| 3a 56 6f 69 64 50 72 6f | 63 50 74 72 3b 56 41 52 |:VoidPro|cPtr;VAR|
|00000f60| 20 72 65 70 6c 79 50 74 | 72 3a 53 46 52 65 70 6c | replyPt|r:SFRepl|
|00000f70| 79 52 65 63 29 3b 0d 50 | 52 4f 43 45 44 55 52 45 |yRec);.P|ROCEDURE|
|00000f80| 20 53 46 50 50 75 74 46 | 69 6c 65 32 20 28 20 77 | SFPPutF|ile2 ( w|
|00000f90| 68 65 72 65 58 3a 49 6e | 74 65 67 65 72 3b 20 77 |hereX:In|teger; w|
|00000fa0| 68 65 72 65 59 3a 49 6e | 74 65 67 65 72 3b 20 69 |hereY:In|teger; i|
|00000fb0| 74 65 6d 44 72 61 77 50 | 74 72 3a 50 72 6f 63 50 |temDrawP|tr:ProcP|
|00000fc0| 74 72 3b 20 70 72 6f 6d | 70 74 44 65 73 63 3a 52 |tr; prom|ptDesc:R|
|00000fd0| 65 66 44 65 73 63 72 69 | 70 74 6f 72 3b 20 70 72 |efDescri|ptor; pr|
|00000fe0| 6f 6d 70 74 52 65 66 3a | 52 65 66 3b 20 6f 72 69 |omptRef:|Ref; ori|
|00000ff0| 67 4e 61 6d 65 44 65 73 | 63 3a 52 65 66 44 65 73 |gNameDes|c:RefDes|
|00001000| 63 72 69 70 74 6f 72 3b | 20 6f 72 69 67 4e 61 6d |criptor;| origNam|
|00001010| 65 52 65 66 3a 52 65 66 | 3b 20 64 69 61 6c 6f 67 |eRef:Ref|; dialog|
|00001020| 54 65 6d 70 50 74 72 3a | 44 69 61 6c 6f 67 54 65 |TempPtr:|DialogTe|
|00001030| 6d 70 6c 61 74 65 3b 20 | 64 69 61 6c 6f 67 48 6f |mplate; |dialogHo|
|00001040| 6f 6b 50 74 72 3a 56 6f | 69 64 50 72 6f 63 50 74 |okPtr:Vo|idProcPt|
|00001050| 72 3b 56 41 52 20 72 65 | 70 6c 79 50 74 72 3a 53 |r;VAR re|plyPtr:S|
|00001060| 46 52 65 70 6c 79 52 65 | 63 32 29 3b 0d 50 52 4f |FReplyRe|c2);.PRO|
|00001070| 43 45 44 55 52 45 20 53 | 46 50 75 74 46 69 6c 65 |CEDURE S|FPutFile|
|00001080| 20 28 20 77 68 65 72 65 | 58 3a 49 6e 74 65 67 65 | ( where|X:Intege|
|00001090| 72 3b 20 77 68 65 72 65 | 59 3a 49 6e 74 65 67 65 |r; where|Y:Intege|
|000010a0| 72 3b 20 70 72 6f 6d 70 | 74 3a 53 74 72 32 35 35 |r; promp|t:Str255|
|000010b0| 3b 20 6f 72 69 67 4e 61 | 6d 65 3a 53 74 72 32 35 |; origNa|me:Str25|
|000010c0| 35 3b 20 6d 61 78 4c 65 | 6e 3a 49 6e 74 65 67 65 |5; maxLe|n:Intege|
|000010d0| 72 3b 56 41 52 20 72 65 | 70 6c 79 50 74 72 3a 53 |r;VAR re|plyPtr:S|
|000010e0| 46 52 65 70 6c 79 52 65 | 63 29 3b 0d 50 52 4f 43 |FReplyRe|c);.PROC|
|000010f0| 45 44 55 52 45 20 53 46 | 50 75 74 46 69 6c 65 32 |EDURE SF|PutFile2|
|00001100| 20 28 20 77 68 65 72 65 | 58 3a 49 6e 74 65 67 65 | ( where|X:Intege|
|00001110| 72 3b 20 77 68 65 72 65 | 59 3a 49 6e 74 65 67 65 |r; where|Y:Intege|
|00001120| 72 3b 20 70 72 6f 6d 70 | 74 44 65 73 63 3a 52 65 |r; promp|tDesc:Re|
|00001130| 66 44 65 73 63 72 69 70 | 74 6f 72 3b 20 70 72 6f |fDescrip|tor; pro|
|00001140| 6d 70 74 52 65 66 3a 52 | 65 66 3b 20 6f 72 69 67 |mptRef:R|ef; orig|
|00001150| 4e 61 6d 65 44 65 73 63 | 3a 52 65 66 44 65 73 63 |NameDesc|:RefDesc|
|00001160| 72 69 70 74 6f 72 3b 20 | 6f 72 69 67 4e 61 6d 65 |riptor; |origName|
|00001170| 52 65 66 3a 52 65 66 3b | 56 41 52 20 72 65 70 6c |Ref:Ref;|VAR repl|
|00001180| 79 50 74 72 3a 53 46 52 | 65 70 6c 79 52 65 63 32 |yPtr:SFR|eplyRec2|
|00001190| 29 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 53 46 52 |);.PROCE|DURE SFR|
|000011a0| 65 53 63 61 6e 20 28 20 | 66 69 6c 74 65 72 50 72 |eScan ( |filterPr|
|000011b0| 6f 63 50 74 72 3a 50 72 | 6f 63 50 74 72 3b 20 74 |ocPtr:Pr|ocPtr; t|
|000011c0| 79 70 65 4c 69 73 74 50 | 74 72 3a 53 46 54 79 70 |ypeListP|tr:SFTyp|
|000011d0| 65 4c 69 73 74 32 50 74 | 72 29 3b 0d 50 52 4f 43 |eList2Pt|r);.PROC|
|000011e0| 45 44 55 52 45 20 53 46 | 52 65 73 65 74 3b 0d 46 |EDURE SF|Reset;.F|
|000011f0| 55 4e 43 54 49 4f 4e 20 | 53 46 53 68 6f 77 49 6e |UNCTION |SFShowIn|
|00001200| 76 69 73 69 62 6c 65 20 | 28 20 69 6e 76 69 73 69 |visible |( invisi|
|00001210| 62 6c 65 53 74 61 74 65 | 3a 42 6f 6f 6c 65 61 6e |bleState|:Boolean|
|00001220| 29 20 3a 20 42 6f 6f 6c | 65 61 6e 3b 0d 50 52 4f |) : Bool|ean;.PRO|
|00001230| 43 45 44 55 52 45 20 53 | 46 53 68 75 74 44 6f 77 |CEDURE S|FShutDow|
|00001240| 6e 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 53 46 53 |n;.PROCE|DURE SFS|
|00001250| 74 61 72 74 55 70 20 28 | 20 75 73 65 72 49 44 3a |tartUp (| userID:|
|00001260| 49 6e 74 65 67 65 72 3b | 20 64 50 61 67 65 41 64 |Integer;| dPageAd|
|00001270| 64 72 3a 49 6e 74 65 67 | 65 72 29 3b 0d 46 55 4e |dr:Integ|er);.FUN|
|00001280| 43 54 49 4f 4e 20 53 46 | 53 74 61 74 75 73 20 20 |CTION SF|Status  |
|00001290| 3a 20 42 6f 6f 6c 65 61 | 6e 20 3b 0d 46 55 4e 43 |: Boolea|n ;.FUNC|
|000012a0| 54 49 4f 4e 20 53 46 56 | 65 72 73 69 6f 6e 20 20 |TION SFV|ersion  |
|000012b0| 3a 20 49 6e 74 65 67 65 | 72 20 3b 0d 49 4d 50 4c |: Intege|r ;.IMPL|
|000012c0| 45 4d 45 4e 54 41 54 49 | 4f 4e 0d 45 4e 44 2e 0d |EMENTATI|ON.END..|
|000012d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001300| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00001310| 75 73 52 65 63 20 7b 0d | 20 20 20 42 79 74 65 20 |usRec {.|   Byte |
|00001320| 61 73 79 6e 63 3b 20 2f | 2a 20 61 73 79 6e 63 72 |async; /|* asyncr|
|00001330| 09 53 74 64 46 69 6c 65 | 2e 70 02 00 00 00 54 45 |.StdFile|.p....TE|
|00001340| 58 54 4d 50 53 20 01 00 | 01 40 00 00 00 00 00 00 |XTMPS ..|.@......|
|00001350| 00 00 54 45 58 54 4d 50 | 53 20 01 00 01 40 00 00 |..TEXTMP|S ...@..|
|00001360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001370| 00 00 a0 4e 15 43 00 00 | 12 50 00 00 01 ac 20 65 |...N.C..|.P.... e|
|00001380| 72 72 6f 72 20 72 65 73 | 75 6c 74 20 66 72 6f 6d |rror res|ult from|
|00001390| 20 61 20 50 41 50 20 6f | 70 65 72 61 74 69 6f 6e | a PAP o|peration|
|000013a0| 20 2a 2f 0d 20 20 20 4c | 6f 6e 67 57 6f 72 64 20 | */.   L|ongWord |
|000013b0| 63 6f 6d 70 6c 65 74 69 | 6f 6e 50 74 72 3b 20 2f |completi|onPtr; /|
|000013c0| 2a 20 70 6f 69 6e 74 65 | 72 20 74 6f 20 74 68 65 |* pointe|r to the|
|000013d0| 20 63 6f 6d 70 6c 65 74 | 69 6f 6e 20 72 6f 75 74 | complet|ion rout|
|000013e0| 69 6e 65 20 2a 2f 0d 20 | 20 20 57 6f 72 64 20 73 |ine */. |  Word s|
|000013f0| 6c 73 4e 65 74 3b 20 2f | 2a 20 53 4c 53 20 4e 65 |lsNet; /|* SLS Ne|
|00001400| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00001410| 00 00 00 10 00 0a 00 16 | 00 00 01 97 01 35 00 00 |........|.....5..|
|00001420| 00 00 00 14 00 01 00 06 | 00 02 00 2a 00 03 01 dd |........|...*....|
|00001430| 02 7d 00 3c 00 24 01 dd | 02 3d a2 dd 04 7e 00 00 |.}.<.$..|.=...~..|
|00001440| 09 b7 00 00 09 b7 00 00 | 05 85 01 00 00 00 00 1e |........|........|
|00001450| 00 2a 00 03 01 dd 02 7d | 00 3c 00 24 01 dd 02 3d |.*.....}|.<.$...=|
|00001460| 00 00 05 85 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001470| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 93 |.....n..|.n...>..|
|00001480| dc 58 0b 06 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |.X......|.>..MPSR|
|00001490| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000014a0| 03 f0 ff ff 00 00 00 4c | 00 00 00 00 00 00 00 00 |.......L|........|
|000014b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+